home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Game Levels 2 / 1,000 Game Levels 2.iso / DOSARC / BOWHUNT.ZIP / TITLE.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-21  |  2KB  |  74 lines
  1. Program Coder;
  2. uses Crt, Graph;
  3.  
  4.  
  5. var
  6.    Gd, Gm : integer;
  7.    y, Size : integer;
  8.    c1 : integer;
  9.    c2 : integer;
  10.    c3 : integer;
  11.    c4 : integer;
  12.    key : char;
  13.  
  14. Procedure Start;
  15. begin
  16.     randomize;
  17.     Gd := Detect;
  18.     InitGraph(Gd, Gm, '');
  19.     if GraphResult <> grOk then Halt(1);
  20.     Y := 0;
  21.  
  22.     SetBkColor(black);
  23.     repeat
  24.        c1 := random(GetMaxColor);
  25.        c2 := random(GetMaxColor);
  26.        c3 := random(GetMaxColor);
  27.        c4 := random(GetMaxColor);
  28.        SetColor(c1);
  29.        delay(150);
  30.        SetTextStyle(TriplexFont, HorizDir, 10);
  31.        OutTextXY(190, 40, 'Bow');
  32.        SetColor(c2);
  33.        OutTextXY(100, 160, 'Hunter');
  34.        SetColor(c3);
  35.        SetTextStyle(TriplexFont, HorizDir, 4);
  36.        OutTextXY(80, 350, 'To play game, press any key');
  37.        SetColor(c4);
  38.        OutTextXY(30,400,'For how to play the game, press H');
  39.     until keypressed;
  40.                key:=readkey;
  41.                OutTextXY(50,50,key);
  42.  
  43.           end;
  44.  
  45. procedure help;
  46. begin
  47.      cleardevice;
  48.      SetColor(lightcyan);
  49.      OutTextXY(110,50,'How to play Bow-Hunter');
  50.      setcolor(red);
  51.      line (110,90,504,90);
  52.      SetTextStyle(Smallfont, HorizDir, 7);
  53.      setcolor(Lightblue);
  54.      OutTextXY(25,150,'Bow-Hunter is an easy to use target shooting game.');
  55.      OutTextXY(25,180,'It simulates an archery target, guided by the mouse.');
  56.      OutTextXY(45,240,'Simply aim with the mouse pointer, and press the');
  57.      OutTextXY(45,270,'left mouse button to fire an arrow at the target.');
  58.      OutTextXY(25,320,'You have one second to fire, and your score will be');
  59.      OutTextXY(25,350,'modified by accuracy of your shot and time remaining.');
  60.      SetColor(LightRed);
  61.      OutTextXY(200,400,'Press any key to play');
  62.      repeat until keypressed;
  63. end;
  64.  
  65.  
  66.  
  67.  
  68.  
  69. begin
  70.      start;
  71.      if (key='h') or (key='H')  then help;
  72.  
  73. end.
  74.